home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / SendToFinalWriterGFX.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-02  |  856b  |  42 lines
  1. /* Imports GFX from TLNG 2.0 to FinalWriter97 */
  2. /* FW97-V1.0 © 19.07.99 by Jochen Grus        */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6.  
  7. 'insertimage ram:0.gfx'
  8. OPTIONS RESULTS
  9. GetDocItemPrefs "DECIMAL"
  10. deci=RESULT
  11. DocItemPrefs "DECIMAL PERIOD"
  12. GetPageSetup "WIDTH"
  13. pw=RESULT
  14. GetSectionSetup "INSIDE OUTSIDE"
  15. PARSE VAR RESULT x1 x2
  16. cent=(x1+pw-x2)/2
  17. FirstObject "SELECTED"
  18. o=RESULT
  19. IF o~=0 THEN
  20.   DO
  21.     cnt=0
  22.     DO UNTIL o=0
  23.       obj.cnt=o
  24.       NextObject o "SELECTED"
  25.       o=RESULT
  26.       cnt=cnt+1
  27.     END
  28.     DO i=0 TO cnt-1
  29.       GetObjectType obj.i
  30.       type=RESULT
  31.       GetObjectCoords obj.i
  32.       PARSE VAR RESULT p l t w h
  33.       IF type=2 | type=3 THEN
  34.         SetObjectCoords obj.i p cent-(w-l)/2 t cent+(w-l)/2 h/2
  35.       ELSE
  36.         SetObjectCoords obj.i p cent-w/2 t w/4 h/4
  37.     END
  38.   END
  39. IF deci~="" THEN DocItemPrefs "DECIMAL" deci
  40.  
  41. EXIT
  42.